home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / hello connect (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  309b  |  9 lines
  1. 2 poke51201,0:poke927,0:poke1023,0:poke53281,6:c$=chr$(34)
  2. 3 print"[147]"tab(8)"[199]oing to [204]oadstar [205]enu...":ifjpthensys50140:goto7
  3. 4 close15:open15,8,15,"u;":input#15,e,e$:dj$=right$(e$,4):close15
  4. 5 ifdj$="ok"ordj$="1541"thenjp=-1:ifpeek(49152)=24andpeek(50116)=28then3
  5. 6 poke49155,96
  6. 7 print"l[207]"c$"pre*"c$",8"
  7. 8 print"run";
  8. 10 poke631,13:poke632,13:poke198,2:end
  9.